home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 1
/
Atari Mega Archive - Volume 1.iso
/
telecomm
/
storm100.lzh
/
OLT.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-11-04
|
812b
|
28 lines
' Script to go to Online Today and determine how many articles are
' available to read and only read those articles.
TERM OFF
CAPTURE OFF
'
SEND "go olt-90"
WAIT 30,"OLT-90":' appears at top of screen
IF WAIT(0) = 0 THEN Fail:' Give up
WAIT 30,"!":' actual prompt
IF WAIT(0) = 0 THEN Fail:' Give up
FAST ON
FOR x = CSRLIN - 1 TO 1 STEP -1:' search for string on screen
a$ = LTRIM$( SCREEN$(x)):' strip leading spaces
IF INSTR(a$,"Late News") THEN n = VAL(a$):GOTO Doit:' pick up menu item #
NEXT x
GOTO Fail
Doit:IF n <= 2 THEN SEND "Scroll all" ELSE SEND "Scroll 1-";n - 1
CAPTURE ON
WAIT 180,"!"
IF WAIT(0) = 0 THEN Fail
SEND :' send CR
WAIT 100,"OLT-90":' in case a '!' was imbedded in an article
CAPTURE OFF
FAST OFF
END
'
Fail:PRINT "Script failed":CAPTURE OFF :END